home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / desktop / fracxtr5.zip / FRM / NEWFORMS.FRM < prev    next >
Text File  |  1991-04-03  |  3KB  |  130 lines
  1.  comment = {
  2.  FRACTINT.DOC has instructions for adding new formulas to this file.
  3.  Note that there are several hard-coded restrictions in the formula
  4.  interpreter:
  5.  
  6.  1) The fractal name through the open curly bracket must be on a single line.
  7.  2) There is a current hard-coded limit of 30 formulas per formula file, only
  8.     because of restrictions in the prompting routines.
  9.  3) Formulas must currently be less than 200 characters long.
  10.  3) Comments, like this one, are set up using dummy formulas with no
  11.     formula name or the special name "comment".  There can be as many
  12.     of these "comment" fractals as desired, they can be interspersed with
  13.     the real formulas, and they have no length restriction.
  14.  
  15.  }
  16.  
  17.    Mandelbrot(XAXIS) = {
  18.       z = Pixel:  z = sqr(z) + pixel, |z| <= 4
  19.    }
  20.  
  21. { The following is a formula taken from a Compuserve GIF file called RAMANUJAN1
  22.   as suggested by an equation in an article about the life and work of Indian 
  23.   mathematician Srinivasa Ramanujan in the book "The World of Mathematics" Vol.
  24.   1, pp 366-376.}
  25.  
  26.   Ramanujan1(ORIGIN) = {
  27.        z = pixel:
  28.        z = (cosh(p1 * sqr(z)) - sinh(p2 * sqr(z))/(p2 * sqr(z)))/z,
  29.        |z|<= 4   
  30. }
  31.  
  32. { The following formula came from Tobey J. E. Reed when asked how he made his
  33.   IMAGE1 and IMAGE2 fractals.}
  34.  
  35.   LeeMandel1(XYAXIS) = {
  36.        z = pixel:
  37.        c = sqr(pixel)/z,
  38.        c = z + c,
  39.        z = sqr(z),
  40.        |z| < P1 
  41.   }
  42.  
  43.   LeeMandel2(XYAXIS) = {
  44.        z = pixel:
  45.        c = sqr(pixel)/z,
  46.        c = z + c,
  47.        z = sqr(c * pixel),
  48.        |z| < 4
  49.   }
  50.  
  51.   Tobey3(XAXIS)      = {
  52.        z = pixel:
  53.        c = pixel - sqr(z),
  54.        c = pixel + c/z,
  55.        z = c - z * pixel,
  56.        |z| < 4
  57.   }
  58.  
  59. ConformalMapping = {
  60.     c = pixel, RealZ = Real(c), ImagZ = Imag(c):
  61.         RealZ = Sqr(RealZ) + (RealZ * ImagZ) + Real(c);
  62.         ImagZ = Sqr(ImagZ) + (RealZ * ImagZ) + Imag(c);
  63.         z = RealZ + (ImagZ * (0, 1)),
  64.     |z| < 4
  65. }
  66.  
  67. Sterling(XAXIS) = {
  68.     z = Pixel:  z = ((z/2.7182818)^z)/sqr(6.2831853*z),
  69.     |z| <= 4
  70. }
  71.  
  72. Sterling2(XAXIS) = {
  73.     z = pixel:  z = ((z/2.7182818)^z)/sqr(6.2631853*Z) + pixel,
  74.     |z| <= 4
  75. }
  76.  
  77. Sterling3(XAXIS) = {
  78.     z = Pixel:  z = ((z/2.7182818)^z)/sqr(6.2831853*z) - pixel,
  79.     |z| <= 4
  80. }
  81.  
  82. Something (xaxis) = {
  83.     z = pixel:
  84.     z = pixel + z*z + 1/z/z,
  85.     |z| <= 4
  86. }
  87.  
  88. Somethingelse (xyaxis) = {
  89.     z = 1:
  90.     z = pixel * (z*z + 1/z/z),
  91.     |z| <= 1000000
  92. }
  93.  
  94. JSomethingelse (xyaxis) = {
  95.     z = pixel:
  96.     z = p1 * (z*z + 1/z/z),
  97.     |z| <= 1000000
  98. }
  99.  
  100. No_name(xaxis) = {
  101.     z = pixel:
  102.     z=z+z*z+(1/z*z)+pixel,
  103.     |z| <= 4
  104. }
  105. comment = {
  106. It seems not so ugly at first glance and lot of corners to zoom in.
  107. Try this:
  108.   Corners        x        y
  109. Top-left      -1.178372      -0.601683
  110. bottom-right      -0.978384      -0.751678
  111. center          -1.07838      -0.67668
  112. }
  113.  
  114. Tim's_Error(XAXIS) = {
  115.     z = pixel, c = z ^ (z - 1):
  116.     z = sqr(z);
  117.     t2 = real(z)*real(c) + imag(z)*imag(c);
  118.     t3 = real(t2)*imag(c) - imag(z)*real(c);
  119.     z = t2 + t3 + pixel,
  120.     |z| <= 4
  121. }
  122. comment = {
  123. A reverse enginerring of a coding error by Tim Wegner done while hard coding
  124. MarksMandelPwr fractal.  Looks like a bug-eyed bird of prey.
  125. }
  126. Whatever_the_name(XAXIS) = {
  127.     z = pixel:
  128.     z=z*z+(1/z*z)+pixel,
  129. }
  130.